SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROC [dbo].[SP_TMDOCU_PRRE_D01]
/*---------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                  --*/
/*---Cliente              : OFISIS  S.A.                 --*/
/*---Sistema              : Tesoreria                    --*/
/*---M«dulo               : Empresa                      --*/
/*---Programa             : Eliminaci½n tmdocu_prre    --*/
/*---Script               : ttproc_i.sql                 --*/
/*---Nombre SP            : SP_TMDOCU_PRRE_D01           --*/
/*---Desarrollado por     : Javier Flores A.             --*/
/*---Fecha Creaci«n       : 22/04/2002                   --*/
/*---Base Datos           : Microsoft Sql Server         --*/
/*---Versi«n              : 8.0                          --*/
/*---Invoca a SP          :                              --*/
/*---------------------------------------------------------*/

/*---------------------------------------------------------*/
/*---Modificado 1 por     :                              --*/
/*---Fecha Modificaci«n   :                              --*/ 
/*---Detalle Modificaci«n :                              --*/
/*---------------------------------------------------------*/

/*---------------------------------------------------------*/
/*---Comentarios                                         --*/
/*---                                                    --*/
/*---                                                    --*/
/*---------------------------------------------------------*/

/*---------------------------------------------------------*/
/*---Drop Proc SP_TMDOCU_PRRE_D01                        --*/
/*---Grant all on SP_TMDOCU_PRRE_D01 to public           --*/ 
/*---SP_TMDOCU_PRRE_D01 '01' , 1, 1, '03/01/1999',       --*/
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/
/*---------------------------------------------------------*/
@ISCO_EMPR          TD_VC_002,  
@ISCO_USUA          TD_VC_008,
@ISCO_PROV          TD_VC_020, 
@ISCO_TIPO_DOCU     TD_VC_003, 
@ISNU_DOCU_PROV     TD_VC_020
	As
declare @VNNU_CORR_PROV TD_IN_001

BEGIN TRAN
/*
    Delete TDDISP_CCOS Where CO_EMPR = @ISCO_EMPR
    And    CO_PROV = @ISCO_PROV
    And    CO_TIPO_DOCU = @ISCO_TIPO_DOCU
    And    NU_DOCU_PROV = @ISNU_DOCU_PROV

    IF (@@ERROR != 0)
       BEGIN
         RAISERROR 20001 'ERROR DE INSERCION'
         ROLLBACK TRAN
         RETURN
        END     

    Delete TMDOCU_PROV 
    Where  CO_EMPR = @ISCO_EMPR
    And    CO_PROV = @ISCO_PROV
    And    CO_TIPO_DOCU = @ISCO_TIPO_DOCU
    And    NU_DOCU_PROV = @ISNU_DOCU_PROV

    IF (@@ERROR != 0)
       BEGIN
         RAISERROR 20001 'ERROR DE INSERCION'
         ROLLBACK TRAN
         RETURN
        END     
*/
    Delete TMDOCU_PRRE 
    Where  CO_EMPR = @ISCO_EMPR
    And    CO_PROV = @ISCO_PROV
    And    CO_TIPO_DOCU = @ISCO_TIPO_DOCU
    And    NU_DOCU_PROV = @ISNU_DOCU_PROV

    IF (@@ERROR != 0)
       BEGIN
         RAISERROR 20001 'ERROR DE INSERCION'
         ROLLBACK TRAN
         RETURN
        END     

COMMIT TRAN

/*--------------------------- Fin -------------------------------- */


GO
